home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / INVEN.PRG < prev    next >
Text File  |  1980-01-01  |  2KB  |  75 lines
  1. *
  2. *
  3. * INVEN
  4. * INVENTORY MANAGEMENT SYSTEM MENU
  5. * OPERATOR ACTION WILL BE ALPHA CHARACTER
  6. * OUTER DO ALLOWS RETURN TO THIS MENU FROM A LOWER LEVEL MENU
  7. SET HEADING OFF
  8. SET SAFETY OFF
  9. SET STATUS OFF
  10. DO WHILE (1=1)
  11. SET TALK OFF
  12. SET BELL OFF
  13. CLEAR ALL
  14. STORE " " TO OPINPUT
  15. *
  16. *===============================START MODS: 1================================*
  17. * SET LEFT AND TOP MARGINS FOR MENU
  18. STORE 20 TO LEFTMARG
  19. STORE  3 TO TOPMARG
  20. *==================================END MODS==================================*
  21. *
  22. *
  23. *===============================START MODS: 2================================*
  24. * SET HIGHEST OPTION LETTER, THEN PROVIDE HEADING AND OPTION LABELS
  25. DO WHILE OPINPUT<"A".OR.OPINPUT>"I"
  26.    CLEAR
  27.    @ TOPMARG,LEFTMARG+3 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  28.    @ TOPMARG+2,LEFTMARG+4 SAY ">> Inventory Management System <<"
  29.    @ TOPMARG+4,LEFTMARG SAY "A. MANUFACTURED INVENTORY File Maintenance"
  30.    @ TOPMARG+5,LEFTMARG SAY "B. RAW MATERIALS INVENTORY File Maintenance"
  31.    @ TOPMARG+6,LEFTMARG SAY "C. Enter ORDERS From Manufactured Inventory"
  32.    @ TOPMARG+7,LEFTMARG SAY "D. Print MANUFACTURED INVENTORY Reports"
  33.    @ TOPMARG+8,LEFTMARG SAY "E. Print RAW MATERIALS INVENTORY Reports"
  34.    @ TOPMARG+9,LEFTMARG SAY "F. Clear SALES COUNTS"
  35.    @ TOPMARG+10,LEFTMARG SAY "G. MANUFACTURED INVENTORY File CLEAN UP"
  36.    @ TOPMARG+11,LEFTMARG SAY "H. RAW MATERIALS INVENTORY File CLEAN UP"
  37.    @ TOPMARG+12,LEFTMARG SAY "I. Return to SYSTEM MENU"
  38.    @ TOPMARG+14,LEFTMARG+3 SAY "Press Letter Matching Desired Option ";
  39.      GET OPINPUT
  40. *=================================END MODS===================================*
  41. *
  42.    READ
  43.    STORE UPPER(OPINPUT) TO OPINPUT
  44. ENDDO
  45. *
  46. *==============================START MODS: 3=================================*
  47. * PROVIDE DO FILE NAME FOR EACH CASE REPRESENTING ONE OF THE MENU OPTIONS
  48. DO CASE
  49.    CASE OPINPUT="A"
  50.       DO MFGMNT
  51.    CASE OPINPUT="B"
  52.       DO RAWMNT
  53.    CASE OPINPUT="C"
  54.       DO ORDERS
  55.    CASE OPINPUT="D"
  56.       DO MFGRPT
  57.    CASE OPINPUT="E"
  58.       DO RAWRPT
  59.    CASE OPINPUT="F"
  60.       DO SALESCLR
  61.    CASE OPINPUT="G"
  62.       DO MIREPACK
  63.    CASE OPINPUT="H"
  64.       DO RIREPACK
  65.    CASE OPINPUT="I"
  66.       RETURN
  67. *=================================END MODS===================================*
  68. *
  69.    OTHERWISE
  70.       CANCEL
  71. ENDCASE
  72. * REDISPLAY MENU
  73. ENDDO
  74.  
  75.